(cua--update-indications): Fix last change.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index c248dbbdcf21729fc9ce921bae5cf3a75a3d93c8..6a0e8a00cdea3f60d49f8c24ae092410d5319226 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1039,7 +1039,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
        (set-cursor-color color))
     (if (and type
             (symbolp type)
-            (not (eq type (frame-parameter nil 'cursor-type))))
+            (not (eq type default-cursor-type)))
        (setq default-cursor-type type))))